home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 31 / 031.d81 / custom ls boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  566b  |  18 lines
  1. 10 poke53280,5:poke53281,13:ta=10
  2. 20 print"[147]"
  3. 30 print"          [195]ustomizing [204][207][193][196][211][212][193][210]"
  4. 40 print"[156]          [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  5. 60 printtab(ta)"[149]([195][149]) [195]olor [211]etup"
  6. 70 printtab(ta)"([208][149]) [208]rinter [211]etup"
  7. 80 printtab(ta)"([210][149]) [210]eturn [212]o [204][207][193][196][211][212][193][210]"
  8. 90 printtab(ta)"[208]ress [195][149], [208][149], or [210][149]."
  9. 200 geta$:ifa$=""then200
  10. 205 ifasc(a$)>128thena$=chr$(asc(a$)-128)
  11. 210 ifa$="c"thenf$="color select":goto300
  12. 220 ifa$="p"thenf$="print select":goto300
  13. 230 ifa$="r"thenf$="hello connect":goto300
  14. 240 goto200
  15. 300 print"[147]        [208]lease [215]ait. [204]oading ...":poke646,peek(53281)
  16. 310 print"load"+chr$(34)+f$+chr$(34)+",8":print"run"
  17. 320 poke631,13:poke632,13:poke198,2:new
  18.